home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / fifth21.arc / UNWS.FIV < prev    next >
Text File  |  1986-03-30  |  185b  |  15 lines
  1. CREATE X
  2. CREATE CHAR
  3. EDIT
  4. variable char
  5. ~UP
  6. EDIT
  7. : x
  8.   begin
  9.     char 1 0 read and while
  10.     char c@ 127 and char c!
  11.     char 1 1 write drop drop
  12.     repeat
  13.   ;
  14. ~UP
  15. ABORT